home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 15 / BBS in a box XV-2.iso / Files II / Prog / M / MacPerl 4.13 tool.sit / Perl Tool ƒ / t / op / readdir.t < prev    next >
Encoding:
Text File  |  1993-10-23  |  616 b   |  31 lines  |  [TEXT/MPS ]
  1. #!./perl
  2.  
  3. eval 'opendir(NOSUCH, "no/such/directory");';
  4. if ($@) { print "1..0\n"; exit; }
  5.  
  6. print "1..3\n";
  7.  
  8. if (opendir(OP, "op") || opendir(OP, ":")) { print "ok 1\n"; } else { print "not ok 1\n"; }
  9. @D = grep(/^[^\.].*\.t$/, readdir(OP));
  10. closedir(OP);
  11.  
  12. if (@D > 20 && @D < 100) { print "ok 2\n"; } else { print "not ok 2\n"; }
  13.  
  14. @R = sort @D;
  15. if (-d "op") {
  16.     @G = <:op:≈.t>;
  17.  
  18.     while (@R && @G && ":op:".$R[0] eq $G[0]) {
  19.         shift(@R);
  20.         shift(@G);
  21.     }
  22. } else {
  23.     @G = <≈.t>;
  24.  
  25.     while (@R && @G && $R[0] eq $G[0]) {
  26.         shift(@R);
  27.         shift(@G);
  28.     }
  29. }
  30. if (@R == 0 && @G == 0) { print "ok 3\n"; } else { print "not ok 3\n"; }
  31.